perm filename LIBMAC.DIF[PAS,SYS]3 blob
sn#452534 filedate 1979-06-30 generic text, type T, neo UTF8
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 1,1
**** File 1) LIBMAC.BKP[PAS,SYS], Page 1 line 1
1) COMMENT ⊗ VALID 00044 PAGES
1) C REC PAGE DESCRIPTION
**** File 2) LIBMAC.MAC[1,ARR], Page 1 line 1
2) COMMENT ⊗ VALID 00042 PAGES
2) C REC PAGE DESCRIPTION
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 1 line 13
1) C00024 00011
1) C00025 00012
1) C00026 00013 TITLE WRTOCT *** PROCEDURE WRTOCT ***
1) C00028 00014 TITLE WRTHEX *** PROCEDURE WRTHEX ***
1) C00030 00015 TITLE WRTBOL *** PROCEDURE WRTBOL ***
1) C00033 00016 TITLE READR *** PROCEDURE READR ***
1) C00039 00017 TITLE TRUNC *** FUNCTION TRUNC ***
1) C00042 00018 TITLE INTREA *** FUNCTION INTREA ***
1) C00045 00019 TITLE WRITEC *** PROCEDURE WRITEC ***
1) C00047 00020 TITLE WRTREA *** PROCEDURE WRTREA ***
1) C00056 00021 TITLE WRTINT *** PROCEDURE WRTINT ***
1) C00059 00022
1) C00060 00023 TITLE READI *** PROCEDURE READI ***
1) C00062 00024 TITLE TTYOPN *** PROCEDURE TTYOPN ***
1) C00064 00025
1) C00065 00026 TITLE OPEN *** PROCEDURES RESET AND REWRITE ***
1) C00077 00027 TITLE REASTR *** PROCEDURES READS AND READPS ***
1) C00082 00028 TITLE CLOSE *** PROCEDURE CLSFIL ***
1) C00085 00029 TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
1) C00094 00030 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
1) C00104 00031 TITLE DATE *** PROCEDURE DATE ***
1) C00108 00032 TITLE TIME *** PROCEDURE TIME ***
1) C00111 00033 TITLE EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
1) C00116 00034 TITLE DEBSP *** DEBUG SUPPORT ***
1) C00126 00035
1) C00127 00036 TITLE WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
1) C00131 00037 TITLE TMPTST *** PROCEDURE TMPTST ***
1) C00134 00038 TITLE ASTOSX *** PROCEDURE ASTOSX ***
1) C00136 00039 TITLE REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
1) C00141 00040 TITLE SETEOF *** PROCEDURE SETEOF ***
1) C00145 00041 TITLE WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
1) C00148 00042 TITLE FORER. *** PROCEDURE FORER. ***
1) C00149 00043 END
1) C00150 00044
1) C00151 ENDMK
1) C⊗;
**** File 2) LIBMAC.MAC[1,ARR], Page 1 line 13
2) C00025 00011 TITLE WRTOCT *** PROCEDURE WRTOCT ***
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 1,1
2) C00028 00012 TITLE WRTHEX *** PROCEDURE WRTHEX ***
2) C00030 00013 TITLE WRTBOL *** PROCEDURE WRTBOL ***
2) C00033 00014 TITLE READR *** PROCEDURE READR ***
2) C00039 00015 TITLE TRUNC *** FUNCTION TRUNC ***
2) C00042 00016 TITLE INTREA *** FUNCTION INTREA ***
2) C00045 00017 TITLE WRITEC *** PROCEDURE WRITEC ***
2) C00047 00018 TITLE WRTREA *** PROCEDURE WRTREA ***
2) C00056 00019 TITLE WRTINT *** PROCEDURE WRTINT ***
2) C00059 00020
2) C00060 00021 TITLE READI *** PROCEDURE READI ***
2) C00062 00022 TITLE TTYOPN *** PROCEDURE TTYOPN ***
2) C00064 00023
2) C00065 00024 TITLE OPEN *** PROCEDURES RESET AND REWRITE ***
2) C00077 00025 TITLE REASTR *** PROCEDURES READS AND READPS ***
2) C00082 00026 TITLE CLOSE *** PROCEDURE CLSFIL ***
2) C00085 00027 TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
2) C00095 00028 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
2) C00106 00029 TITLE DATE *** PROCEDURE DATE ***
2) C00110 00030 TITLE TIME *** PROCEDURE TIME ***
2) C00113 00031 TITLE EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
2) C00118 00032 TITLE DEBSP *** DEBUG SUPPORT ***
2) C00128 00033
2) C00129 00034 TITLE WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
2) C00133 00035 TITLE TMPTST *** PROCEDURE TMPTST ***
2) C00136 00036 TITLE ASTOSX *** PROCEDURE ASTOSX ***
2) C00138 00037 TITLE REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
2) C00143 00038 TITLE SETEOF *** PROCEDURE SETEOF ***
2) C00147 00039 TITLE WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
2) C00150 00040 TITLE FORER. *** PROCEDURE FORER. ***
2) C00151 00041 END
2) C00152 00042
2) C00153 ENDMK
2) C⊗;
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 106
1) XCT FILLKP(REG) ;LOOKUP
1) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 106
2) PUSHJ TOPP ,RESLKP ;GO LOOKUP
2) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 114
1) ;
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 115
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 26,24
2) RESLKP: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY LOOKUP
2) XCT FILLKP(REG) ;LOOKUP
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 124
1) XCT FILENT(REG) ;ENTER
1) JRST REWERR ;ERROR ON ENTER
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 132
2) PUSHJ TOPP ,REWENT ;GO ENTER
2) JRST REWERR ;ERROR ON ENTER
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 133
1) ;
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 142
2) REWENT: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY ENTER
2) XCT FILENT(REG) ;ENTER
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 200
1) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
1) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 216
2) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 26 line 204
1) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
**** File 2) LIBMAC.MAC[1,ARR], Page 24 line 219
2) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
2) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
***************
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 29,27
**** File 1) LIBMAC.BKP[PAS,SYS], Page 29 line 40
1) FILBIN= 17 ;FLAGS TO TEST FOR ASCII-MODE
**** File 2) LIBMAC.MAC[1,ARR], Page 27 line 40
2) FILDAT= 1 ;FLAG TO TEST FOR TEXT-FILE
2) FILBIN= 17 ;FLAGS TO TEST FOR ASCII-MODE
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 29 line 98
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[1,ARR], Page 27 line 99
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 29 line 109
1) PUTEST: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
**** File 2) LIBMAC.MAC[1,ARR], Page 27 line 112
2) hlrz ac0 ,filptr(reg) ;text-file? (*EJG 23OCT78*)
2) trnn ac0 ,fildat ;skip if no (*EJG 23OCT78*)
2) jrst putesx ;jump if yes (*EJG 23OCT78*)
2) PUTEST: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 29 line 117
1) ;
**** File 2) LIBMAC.MAC[1,ARR], Page 27 line 123
2) ; Use loop "putesx" only for text-files: Stanford ASCII translation (*EJG 23OCT78*)
2) putesx: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
2) JRST [
2) PUSHJ TOPP ,PUTBF1 ;PUT CURRENT BUFFER
2) JRST putesx] ;RET TO CALLER
2) MOVE AC0 ,(AC1) ;GET NEXT WORD OF COMPONENT
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
2) AOBJN AC1 ,putesx ;MORE WORDS IN COMPONENT ?
2) POPJ TOPP , ;NO
2) ;
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 30 line 77
1) PUSHJ TOPP ,GETCNT ;GET 1ST CHAR OF NEXT LINE
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 77
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 30,28
2) MOVE AC0 ,[ASCIZ/-----/] ;ARR. SET THE LINE NUMBER
2) MOVEM AC0 ,FILLNR(REG) ;TO DASHES
2) PUSHJ TOPP ,GETCNT ;GET 1ST CHAR OF NEXT LINE
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 30 line 82
1) JRST GETRET ;YES - RETURN
1) MOVE AC1 ,@FILBTP(REG) ;NO - GET LINENUMBER OR PAGEMARK
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 84
2) JRST GETRET ;AND RETURN
2) MOVE AC1 ,@FILBTP(REG) ;NO - GET LINENUMBER OR PAGEMARK
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 30 line 98
1) CAME AC1 ,[ASCII/ /] ;PAGE MARK ?
1) JRST .+4 ;NO - GET NEXT CHARACTER
1) AOS FILEOL(REG) ;YES - SET END OF LINE
1) SETZ AC1 , ;CHARACTERCNT TO ZERO
1) JRST GETBLK
1) HRRZS FILCNT(REG) ;SETS CHARACTERCOUNT TO ZERO
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 100
2) HRRZS FILCNT(REG) ;SETS CHARACTERCOUNT TO ZERO
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 30 line 135
1) CAIN AC0 ,11 ;HORIZONTAL TAB
1) JRST GETTAB ;YES
1) CAIE AC0 ,12 ;LINE FEED?
1) JRST GETCNT ;NO - FORGET IT
1) AOS FILEOL(REG) ;SET EOLN
1) SETZ AC1 , ;CLEARS CHARACTERCOUNT
1) JRST GETBLK ;GET BLANK IF LF
1) GETCON: SUBI AC0 ,40 ;CORR. CHAR
1) JRST GETNEW ;DEP. INTO FILCOMP
1) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 132
2) CAIN AC0 ,14 ;ARR. FORM FEED?
2) JRST GETFF ;MARK IT IN LINENR
2) CAIN AC0 ,11 ;HORIZONTAL TAB
2) JRST GETTAB ;YES
2) CAIN AC0 ,12 ;LINE FEED?
2) JRST GETLF
2) CAIN AC0 ,30 ;This is the stupid Stanford underbar
2) jrst getsbr ;Stanford '←'
2) jrst getcnt ;ignore it
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 30,28
2) GETFF: MOVE AC1 ,[ASCIZ/ /] ;ARR. PUT BLANKS IN LINENR
2) MOVEM AC1 ,FILLNR(REG) ; and do same as line feed
2) GETLF: AOS FILEOL(REG) ;SET EOLN
2) SETZ AC1 , ;CLEARS CHARACTERCOUNT
2) JRST GETBLK ;DEPOSIT A BLANK
2) GETCON: SUBI AC0 ,40 ;CORR. CHAR
2) JRST GETNEW ;DEP. INTO FILCOMP
2) getsbr: movei ac0 ,"←" ;convert Stanford underbar to '←'
2) jrst getnew
2) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 31 line 2
1) TWOSEG
**** File 2) LIBMAC.MAC[1,ARR], Page 29 line 2
2) opdef dateuu [date]
2) TWOSEG
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 31 line 36
1) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) POPJ TOPP ,
1) IDIVI AC0 ,144
**** File 2) LIBMAC.MAC[1,ARR], Page 29 line 37
2) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) ; POPJ TOPP ,
2) IDIVI AC0 ,144
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 31 line 52
1) MOVE AC0 ,[XWD 60,11] ;GET DAY
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.MAC[1,ARR], Page 29 line 53
2) ; MOVE AC0 ,[XWD 60,11] ;GET DAY
2) dateuu reg2,
2) idivi reg2,↑D31
2) movei ac0,1(reg3)
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 31 line 56
1) MOVE AC1 ,[XWD 57,11] ;GET MONTH
1) GETTAB AC1 ,
1) JRST END ;MERDE
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 31,29
1) MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
1) HRRZI REG3 ,3 ;COUNTER
**** File 2) LIBMAC.MAC[1,ARR], Page 29 line 60
2) ; MOVE AC1 ,[XWD 57,11] ;GET MONTH
2) ; GETTAB AC1 ,
2) ; JRST END ;MERDE
2) ; MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
2) idivi reg2,↑D12
2) movei ac1,↑D1964(reg2)
2) movei reg2,months(reg3)
2) hrli reg2,440700
2) HRRZI REG3 ,3 ;COUNTER
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 31 line 66
1) MOVE AC0 ,[XWD 56,11] ;GET YEAR
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.MAC[1,ARR], Page 29 line 74
2) ; MOVE AC0 ,[XWD 56,11] ;GET YEAR
2) move ac0,ac1
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 32 line 36
1) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) POPJ TOPP ,
1) IDIVI AC0 ,12 ;DIV BY 10
**** File 2) LIBMAC.MAC[1,ARR], Page 30 line 36
2) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) ; POPJ TOPP ,
2) IDIVI AC0 ,12 ;DIV BY 10
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 32 line 48
1) MOVE AC0 ,[XWD 61,11] ;GET HOURS
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.MAC[1,ARR], Page 30 line 48
2) timer ac0,
2) idivi ac0,↑D60
2) idivi ac0,↑D60
2) push topp,ac1 ;push seconds
2) idivi ac0,↑D60
2) push topp,ac1 ;push minutes
2) ; MOVE AC0 ,[XWD 61,11] ;GET HOURS
2) PUSHJ TOPP ,GETINF
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 32,30
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 32 line 52
1) MOVE AC0 ,[XWD 62,11] ;GET MINUTES
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.MAC[1,ARR], Page 30 line 58
2) pop topp,ac0
2) ; MOVE AC0 ,[XWD 62,11] ;GET MINUTES
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 32 line 56
1) MOVE AC0 ,[XWD 63,11] ;GET SECONDS
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.MAC[1,ARR], Page 30 line 63
2) pop topp,ac0
2) ; MOVE AC0 ,[XWD 63,11] ;GET SECONDS
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 34 line 164
1) INIAPR: MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
1) GETTAB AC1 , ;
1) HALT ;ERROR RETURN
1) TLNN AC1 ,200 ;TEST IF BATCH-JOB
1) JRST NOTBAT ;NO
1) TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
1) IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
1) MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
1) MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
1) APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
1) POPJ TOPP ,
1) ;*******************************************************************************
**** File 2) LIBMAC.MAC[1,ARR], Page 32 line 164
2) INIAPR:;MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
2) ; GETTAB AC1 , ;
2) ; HALT ;ERROR RETURN
2) ; TLNN AC1 ,200 ;TEST IF BATCH-JOB
2) ; JRST NOTBAT ;NO
2) ; TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
2) ; IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
2) ; MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
2) ; MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
2) ; APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
2) ; POPJ TOPP ,
1) LIBMAC.BKP[PAS,SYS] and 2) LIBMAC.MAC[1,ARR] 6-30-79 16:26 pages 34,32
2) ;*******************************************************************************
***************
**** File 1) LIBMAC.BKP[PAS,SYS], Page 39 line 72
1) CAIN AC0 ," " ;LEADING BLANKS
1) JRST GTSGN ;YES - OVERREAD THEM
**** File 2) LIBMAC.MAC[1,ARR], Page 37 line 72
2) CAIE AC0 ," " ;LEADING BLANKS
2) CAIN AC0 ,"," ;AND LEADING COMMAS TOO
2) JRST GTSGN ;YES - OVERREAD THEM
***************